home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / dnet / fingerinfo10.lha / FingerInfo
Encoding:
Text File  |  1994-05-03  |  2.6 KB  |  77 lines
  1. /* FingerInfo Rexx version 1.0 1994 by Bill Bereza (bereza@beech.csis.gvsu.edu)
  2.  *
  3.  * This program is based on the FingerInfo csh script by
  4.  * Scott A. Yanoff (yanoff@csd4.csd.uvm.edu), but contains no code
  5.  * from the original.
  6.  *
  7.  * This script is freeware ©1994 by Bill Bereza
  8.  *
  9.  */
  10.  
  11. mo   ="more"
  12. tube ="Pipe"
  13. poker="dfinger"
  14.  
  15. ans=1
  16.  
  17. fin.26="bereza@beech.csis.gvsu.edu"
  18. fin.1 ="aurora@xi.uleth.ca"
  19. fin.2 ="solar@xi.uleth.ca"
  20. fin.3 ="daily@xi.uleth.ca"
  21. fin.4 ="nichol@stavanger.sgp.slb.com"
  22. fin.5 ="buckmr@rpi.edu"
  23. fin.6 ="help@dir.su.oz.au"
  24. fin.7 ="quake@geophys.washington.edu"
  25. fin.8 ="nasanews@space.mit.edu"
  26. fin.9 ="normg@halcyon.halcyon.com"
  27. fin.10="yanoff@csd4.csd.uwm.edu"
  28. fin.11="forecast@typhoon.atmos.colostate.edu"
  29. fin.12="help@atk.itc.cmu.edu"
  30. fin.13="coke@cs.cmu.edu"
  31. fin.14="drink@drink.csh.rit.edu"
  32. fin.15="graph@drink.csh.rit.edu"
  33. fin.16="adam@mtv.com"
  34. fin.17="hayden@vax1.mankato.msus.edu"
  35. fin.18="hendry@helios.physics.utoronto.ca"
  36. fin.19="copi@oddjob.uchicago.edu"
  37. fin.20="franklin@ug.cs.dal.ca"
  38. fin.21="cciscat@alpha.acast.nova.edu"
  39. fin.22="nfl@spam.wicat.com"
  40. fin.23="nflline@spam.wicat.com"
  41. fin.24="cyndiw@magnus1.com"
  42. fin.25="gunter@yarrow.wt.uwa.edu.au"
  43.  
  44. ans_max=26
  45.  
  46. do until ans=0
  47.     echo "                          * Welcome to FingerInfo *"
  48.     echo "                         Rexx ver.1.0 by Bill Bereza"
  49.     echo ""
  50.     echo "[1]  Auroral Activity                     [13] MnM/Coke Machine at CMU"
  51.     echo "[2]  3-Hour Solar and Geophysical Report  [14] Coke Machine in CS House at RIT"
  52.     echo "[3]  Daily Solar and Geophysical Report   [15] Graph of soda at RIT"
  53.     echo "[4]  List of Periodic Postings to Usenet  [16] Cyber-Sleaze Daily Report"
  54.     echo "[5]  Billboard Charts                     [17] Code of the Geeks"
  55.     echo "[6]  DataBases via Finger                 [18] Animaniacs Future Episodes"
  56.     echo "[7]  Earthquake Info                      [19] Almanac Info/Sports Schedules"
  57.     echo "[8]  NASA Headline News                   [20] Random Star Trek/TNG Quotes"
  58.     echo "[9]  Nielsen TV Ratings                   [21] Nova U.'s Grad. Catalog"
  59.     echo "[10] Packer Scores/Standings              [22] NFL Scores/Standings"
  60.     echo "[11] Tropical Storm Forecast              [23] NFL Line Spread"
  61.     echo "[12] Remote Andrew Demo Service for X     [24] Weekly Trivia"
  62.     echo "                                          [25] Most Powerful Computing Sites"
  63.     echo ""
  64.  
  65.     do until ans<=ans_max
  66.         writech(stdout,'Please select one of the above [or 0 to quit]: ')
  67.         PULL ans
  68.     end
  69.  
  70.     if ans>0 then
  71.         ADDRESS COMMAND tube' 'poker' 'fin.ans' | 'mo
  72.  
  73. END
  74. echo ""
  75. echo "Thank you for using FingerInfo Rexx v1.0"
  76. EXIT
  77.